Option Explicit
Sub C_Sample011()
    Dim myRng As Range
    Set myRng = Range("A1:A10")				'Nxs
    Cells.Clear							'xs檺M
    With myRng.Cells(1)
        .Value = 123						']wl
        'ǳƨ즹
        .AutoFill Destination:=myRng, Type:=xlFillSeries
    End With
    Set myRng = Nothing					'
End Sub
